home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Amateur Radio User Group / AARUG UK #17 (199x)(Amiga Amateur Radio User Group UK)(PD)[WB][G4DCV].zip / AARUG UK #17 (199x)(Amiga Amateur Radio User Group UK)(PD)[WB][G4DCV].adf / NET2NOS.rexx < prev    next >
OS/2 REXX Batch file  |  1990-05-07  |  906b  |  33 lines
  1. /* Convert HOSTS.NET to DOMAIN.TXT */
  2. /* Trace R */
  3.  
  4. Call Open(net,"TCPIP:Hosts.NET",Read)
  5. Call Open(nos,"TCPIP:Domain.TXT",Write)
  6.  
  7. Call WriteLn(nos,'# HOSTS.NET converted to DOMAIN.TXT format for NOS version')
  8. Call WriteLn(nos,'# of KA9Q TCP/IP on '||DATE()||' by G1YYH')
  9. Call WriteLn(nos,'#')
  10. Call WriteLn(nos,'GBR. IN PTR g1yyh.')
  11. Call WriteLn(nos,'NW.  IN PTR g1yyh.')
  12. Call WriteLn(nos,'EU.  IN PTR g1yyh.')
  13. Call WriteLn(nos,'WWW. IN PTR g1yyh.')
  14. Call WriteLn(nos,'#')
  15.  
  16. Do Until EOF(net)
  17.   inline=readln(net)
  18.   IF LEFT(inline,1)='#' Then 
  19.     Call WriteLn(nos,inline)
  20.   Else Do
  21.     Parse Var inline ipaddr callsign ampr '#' cmt
  22.     If ipaddr~='' Then Do
  23.       Say left(ipaddr,15) callsign
  24.       Call Writeln(nos,'# '||cmt)
  25.       Call Writeln(nos,callsign||'. IN CNAME '||SPACE(ampr)||'.')
  26.       Call Writeln(nos,SPACE(ampr)||'. 100000 IN A '||ipaddr)
  27.     End
  28.   End
  29. End
  30.  
  31. Call Close(net)
  32. Call Close(nos)
  33.